home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr49 / 106_01.zip / TEST.MOU < prev    next >
Text File  |  1993-06-26  |  384b  |  12 lines
  1. "This dies due to macro expansion bug in the mouse interpreter!"
  2. "At least I think that is the reason!"
  3. "Square and triangular numbers"
  4. ("!Enter a number "
  5.   n?=n.^
  6.   "s("n.!") = " #s,n.;!
  7.   "   t("n.!") = "#t,n.;!"!"
  8.   )
  9. $s %a1-[#t,%a;#t,%a1-;+@]1@
  10. $t %a1-[#s,%a1-;3%a*1-+2/@]1@
  11. $$
  12.